[Pytanie] Losowanie ?

[JestemPolakiem]

Hej, chcę zrobić takie losowanie, lecz gdy wypadnie np. 1 to już nie może wypaść znowu 1 tylko musi np 2.

ok kod wygląda mniej i więcej tak :

$i = Random (1,6)
$i = Round($i)
MsgBox(0,"Losowanie",$i)
If $i == 1 Then
$i = Random (2,6)
EndIf

Lecz nadal może wylosować x2 1 lub nawet x3 ponieważ dojdzie pierw do msgbox'a, tak samo nie wiem jak zrobić przy liczbach :2,3,4,5 ponieważ nie zrobię np tak : Random (3,6) ponieważ nie wylosuje wtedy 1. możecie jakoś pomóc ;p

[MrGregorix]

Zrób tablice w której będzie czy liczba została już wylosowana czy nie (true, false), i jeżeli tak to losuj znowu.

 

 

Zamiast

$i = Random (1,6)
$i = Round($i)

Mozna zrobic tak:

$i = Random (1,6, 1)

 

[Sopelek997]

$i = 0
while true
$last = $i
while $i == $last
$i = Random (1,6, 1) ;trzeci parametr na 1 powoduje losowanie tylko liczb całkowitych
wend
MsgBox(0,"Losowanie",$i)
wend

sory za brak wciec, pisane na brudno

[JestemPolakiem]

@up

a jak zrobić w tym, że sam losuje tzn chce to podczepić pod button, a tutaj ciągle samo idzie, aż do wyłączenia tego poprzez exit script.

[Phoenix_PL]

$i = 0

$last = $i

while $i == $last

$i = Random (1,6, 1) ;trzeci parametr na 1 powoduje losowanie tylko liczb całkowitych

wend

MsgBox(0,"Losowanie",$i)

mniej-więcej to wrzucasz pod buttona. Zedytuj sobie to jeszcze.

[Ballas]

$Lista = ""

While 1
Do
$return = Losowanie(1,12)
Until $return <> False
MsgBox(0,"",$return)
WEnd


;############# Liczba1, Liczba2
Func Losowanie($param1, $param2)
$losuj = Random($param1,$param2,1)
$Split = StringSplit($lista,"|")
For $i = 1 to $split[0]
   If $losuj = $split[$i] Then Return False
Next
   $lista &= $losuj&"|"
   Return $losuj
EndFunc

Tutaj z opcją, że liczba może wystąpić tylko raz, np. po wylosowaniu liczby 20 już nigdy jej nie wylosuje.

[JestemPolakiem]

Dzieki każdy otrzymał like, można zamknąć temat.